
(*
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$
$$$   PASCAL FILE NAME .................... SAMPLE.TEXT
$$$   PASCAL FILE TYPE .................... TEXT
$$$   PASCAL FILE DATE .................... 1985-MAY-31
$$$
$$$   PASCAL VOLUME NAME .................. TK
$$$
$$$   DISK IMAGE NAME ..................... A2PASDT1
$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$
$$$   DISK IMAGE COMMENT:
$$$
$$$     APPLE II PASCAL DESKTOP TOOLKIT - MOUSE GRAPHICS - 1988 - 1/4
$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
*)

{^he 'Mouse Graphics Tool Kit Sample''Page %'}
{^fo '''May 28, 1985'}
{$setc apple:=2}
{$V-}




(*

     This program demonstrates the use of the Mouse Graphics Tool Kit
     in the Apple // Pascal environment.  The program is rather simple
     but exercises many of the calls in the tool kit.
     
     It puts up a menu bar with six menus:
     
                An Apple Menu
                A File Menu
                An Edit Menu
                A Windows Menu
                A Menu Test Menu
                A Window Test Menu
                A Dummy Menu
                
     The Apple menu contains one item, which when selected displays a
     dialog box.  The box is modal and remains on the desktop until 
     the mouse is clicked in it.
     
     The file menu has the quit option in it.
     
     The Edit menu has the common edit items in it but they do not
     do anything in this program.

     The Windows menu has items for each of three main windows that
     can be opened.  It also has on it items for dragging, growing
     and hiding the top window.  These items are part of the "Keyboard
     Mouse" interface and must be supplied by the application.
     
     The Menu Test menu has items on it for operating on the Dummy 
     menu.  You can pick items in this menu that disable, enable, check
     uncheck etc. items in the Dummy menu.
     
     The Window Test menu has items in it for the various options in a
     winfo.  If an item is checked, the option is true.  If the item
     is not checked, the option is false.  You can change an item from
     true to false or false to true by selecting it.  If the test window
     is open, it will close and reopen with the new options set.  The
     test window also contains a display of its own winfo.
     
     The Dummy Menu does not do anything except serve as a target for 
     the actions of the Menu Test menu.
     
     
     
     
     
     This demo has examples of most of the Mouse Graphics Tool Kit calls.
     Not yet implemented are examples of scrolling.  The calls work but 
     I have not yet had the time to do the sample.
     
     *)




program psample;
   
   uses
      { This may be different for your system. }
      {$u *tk.rel/ints/tk.unit.code}
      mgrkit;
   
   
{$I tk.part1 }
{$I tk.part2 }
{$I tk.part3 }



(*
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$   END OF FILE : TK - SAMPLE.TEXT
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

File brought to you by:

Apple Macintosh Apple II Pascal Disk Image Dumper 1.0.0 (16 May 2004)
David T Craig (Santa Fe, New Mexico, USA)
shirlgato@cybermesa.com / dcraig@cyberwolf.com

Sunday, June 20, 2004 -- 1:52:10 PM
*)

